B Soft 6/B-Soft_6_19xx_Maik__Mike_de_Side_B.d64/allein gegen die

Commodore BASIC | 1990-01-01 | 781 b | 17 lines

1 ifa=0thena=1:poke808,225:poke53280,0:poke53281,0:gosub6
2 ifa=1thena=2:load"bse 9",8,1
3 readpc:sys57812"bse 9 - pic",8,1:poke53280,1:poke53281,1:poke780,0:sys65493:poke1000,8
4 sys4096*5:poke198,0:wait198,1:poke53265,27:poke53270,200:poke53272,21:poke53281,1
5 gosub30:print"[147]":load"bse 9 - gme",8:data49,50,51,52,53,54,65
6 gosub21:print"[147]","[157][157][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]":print"        [194][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201][146][194]":print"        [194][194][176][195][195][174] [176][195][195][178][195][195][178][195][195][178][195][195][195][174][194][146][194]":print"        [194][194][194][195] [171][195][179] [195][179]  [194] [195][179]   [194][194][146][194]":print"        [194][202][179] [195][179] [194]  [194][176][174][194]  [171][174] [176][177][203][146][194]":print"        [194][213][179][195] [171][195][219][195] [194][173][189][194] [176][189][194] [171][195][201][146][194]"
8 print"        [194][194][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174][194][146][194]"
9 print"        [194][202][179]chaos-pd-software[171][203][146][194]"
10 print"        [194] [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189] [146][194]"
11 print"        [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][151]":gosub21:gosub19:print"[152]":gosub19
12 print"[155]":gosub19:print""
19 print,"[145][145]   praesentiert:"
20 forx=1to50:next:return
21 forx=1to1000:next:return
30 geta$:ifa$=""then30
31 return